기존 업다운 버튼에 색을 넣기 위해 이리저리 찾아 다녀 보았지만
원하는 기능을 찾지 못해 이렇게 직접 만들게 되었네요.

제목 : 삼각형 또는 다각형 버튼 만들기

버튼을 만드는 방법은 많이 있는것 같은데 원하는 기능을 찾기가
쉽지 않아 이런 사람을 위해 간단하게 나마 정리를 해 보았다.

우선 업다운버튼을 사용하기 위해 API를 찾아서 내용을 알아보니

CresteWindow(UPDOWN_CLASS,NULL,WS_CHILD | WS_VISIBLE | USD_SETBUDDYINT
| UDS_ALIGRIGHT, 0,0,0,0hWnd, NULL,g_hInst,NULL);

또한

HWND CreateUpDownControl(DWORD dwStyle, int x, int y, int cx, int cy,
HWND hParent, int nID, HINSTANCE hInst, HWND hBuddy, int nUpper, int nLower, int nPos);

와 같은 알 수 없는 내용으로 가득했다

결론만 말하면 구성이나 모양등에 관한 수정은 가능했지만 색상에 관한 내용
은 없었다.

이렇다면 제가 해결 할 수 있는 방법은 3가지로
1. 아예 sdk로 만드어 버린다
-> 실력과 시간상으로 안됨

2. 프로그램이 실행 될 때 윈도우 색상은 변경 했다 다시 돌려 놓는다.
-> 너무 시간이 느리고 간단한 구현에 너무 많은 에너지를 쓰는것 같다.

3. 직접 만든다.
-> 뭔지 모르지만 가능할것 같다.

이렇게 해서 다시 API책을 읽어 보고 다른 사람의 프로그램을 살펴 보았다.
쨘.. 눈에 확 띄는 부분이 나왔다.

-리전
책의 내용을 보자면 다음과 같다.
리전(region)이란 지역,영역 이란 뜻이다. WIN32에서 리전은 사각형, 타원형, 다각형
등의 각종 도형으로 구성된 영역을 말한다. 화면상의 일정한 영역에 대해 핸들을 붙인
것이 리전이며 일단 만들어지면 채우기, 그리기, 반전, 히트 테스트 등에 다양하게
사용할 수 있다. 리전은 화면상의 일정 영역에 대한 모양과 위치에 대한 정보이며 내
부적인 처리에만 사용될 뿐이다. - 이하 생략

음... 리전을 이용하면 될 것 같다는 생각이 들었다.
리전은 가장 간단하게 사각형, 타원 등의 모양으로 만들어 지며 좀 더 복잡하게 다각형
이나 둥근 사각형 등의 모양으로 만들어 진다. 리전은 만드는 함수는 다음과 같이
여러가지가 있다.

HRGN CreateRectRgn(int nLeftRect, int nTopRect, int nRightRect, int nBottomRect);
HRGN CreateRectRgnIndirect(CONST RECT *Iprc);
HRGN CreateRoundRgn(int nLeftRect, int nTopRect, int nRightRect, int nBottomRect,
int nWidthEllipse, int nHeightEllipse););
HRGN CreateEllipticRgn(int nLeftRect, int nTopRect, int nRightRect, int nBottomRect);
HRGN CreateElliptictRgnIndirect(CONST RECT *Iprc);
HRGN CreatePolygonRgn(CONST POINT *Ippt, int cPoints, int fnPolyFillMode);
HRGN CreatePolyPolygonRgn(CONST POINT *Ippt, CONST INT *IpPolyCounts,
int cCount, int fnPolyFillMode);

위 이름만으로도 짐작할 수 있겠지만
영역을 사각형, 원, 다각형 등으로 할 수 있다는 뜻 이다.

기존에 버튼 말고 삼각형, 별, 기타 다각형 버튼을 만들기 위해서는 위의 함수중
HRGN CreatePolygonRgn(CONST POINT *Ippt, int cPoints, int fnPolyFillMode);
HRGN CreatePolyPolygonRgn(CONST POINT *Ippt, CONST INT *IpPolyCounts,
int cCount, int fnPolyFillMode);
을 쓰면 된다는 것이다.

또한 리전은 두개 이상의 리전을 결합하여 사용 할 수 도 있다. 이런 자세한 내용은
직접 책을 보시면 알것이고 이제 삼각형 버튼을 만들어 보자

다음은 내가 만들었던 버튼의 소스이다. 완전히 다 구현된것은 아니고
좌우 삼각형만 만든것이다. 필요에 따라 기능을 첨가 하여 사용하면 이쁘지는 않지
만 대강의 모습은 구현 할 수 있을 것이다.

만들고 나서 느낀것인데 이상하게 윈도우나 델파이에서 제공하는 업다운 버튼의 내부
삼각형은 크기가 변해도 선의 처리가 깔끔하게 잘 되어 있던데 프로그램상으로 만든
버튼은 선의 처리가 깔끔하지 않았다. 이유는 잘 모르겠는데 어쨌든 필요한 사람이
있으면 잘 사용하기 바란다.

 
{ 
******************************************************* 
프로그램명 : 좌우 업다운버튼 
제작일 : 2001.6.4 
제작자 : 김유중 
사용법 : 알아서 사용할것 
******************************************************* 
} 
 
unit arbutton; 
 
interface 
 
uses 
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs; 
 
type 
TButtonDirection = (arV, arH); //버튼모양 설정(좌우,상하) --상하는 만들지 않음 
TButtonDown = (btNone, btLeft, btRight); //버튼이 눌러졌을경우 어느버튼이 누렸는지 나타냄 
TButtonClickEvent = procedure (Sender: TObject; Button: TButtonDown) of object; 
 
TArButton = class(TGraphicControl) 
private 
fDirection: TButtonDirection; //버튼모양 
fButtonColor: TColor; //바탕색설정 
fButtonDownColor: TColor; //눌렸을경우 색상 
fButtonDown: Boolean; //눌렸나 안눌렸나 
fButtonDowntype : TButtonDown; //눌렸으면 어떤놈인가 
fButtonClick : TButtonClickEvent; //클릭이벤트로 보냄 
fButtonGap : Integer; //두개버튼사이의 간격 
fButtonMag : Integer; //버튼그릴때의 마진 
fPnts1: array[1..3] of TPoint; //삼각형(좌)의 꼭지점3개 
fPnts2: array[1..3] of TPoint; //삼각형(우)의 꼭지점3개 
fRgn1: HRgn; //버튼의 클릭영역 좌 
fRgn2: HRgn; //버튼의 클릭영역 우 
 
procedure SetDirection(value: TButtonDirection); 
procedure SetButtonColor(value: TColor); 
procedure SetButtonDownColor(value: TColor); 
procedure SetButtonGap(value: Integer); 
procedure SetButtonMag(value: Integer); 
procedure FreeRegion1; 
procedure FreeRegion2; 
protected 
procedure Paint; override; 
procedure DrawButton; 
procedure WMLButtonDown(var Message: TWMLButtonDown); //마우스를 누루면 다른색상표시 
message WM_LBUTTONDOWN; 
procedure WMLButtonUp(var Message: TWMLButtonUp); //마우스를 놓았을경우 색상복귀 
message WM_LBUTTONUP; 
public 
constructor Create(AOwner: TComponent); override; 
destructor Destroy; override; 
 
published 
procedure Click(Button: TButtonDown); reintroduce; dynamic; 
 
property ButtonColor: TColor read fButtonColor write SetButtonColor; 
property ButtonDownColor: TColor read fButtonDownColor write SetButtonDownColor; 
property ButtonGap: Integer read fButtonGap write SetButtonGap; 
property ButtonMag: Integer read fButtonMag write SetButtonMag; 
property Direction: TButtonDirection read fDi